object Form1: TForm1
  Left = 375
  Height = 499
  Top = 150
  Width = 550
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Монитор'
  ClientHeight = 499
  ClientWidth = 550
  Position = poDesktopCenter
  LCLVersion = '4.2.0.0'
  OnClose = FormClose
  OnCreate = FormCreate
  object Panel1: TPanel
    Left = 0
    Height = 50
    Top = 0
    Width = 550
    Align = alTop
    ClientHeight = 50
    ClientWidth = 550
    TabOrder = 0
    object Button1: TButton
      Left = 13
      Height = 25
      Top = 13
      Width = 74
      AutoSize = True
      Caption = 'Поехали'
      Color = clWindow
      TabOrder = 0
      OnClick = Button1Click
    end
    object DBText1: TDBText
      Left = 218
      Height = 36
      Top = 6
      Width = 92
      Alignment = taCenter
      DataField = 'Vremya'
      DataSource = DataSource1
      Font.Height = -26
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Height = 225
    Top = 50
    Width = 550
    Align = alTop
    Caption = 'Panel2'
    ClientHeight = 225
    ClientWidth = 550
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Height = 223
      Top = 1
      Width = 156
      Align = alLeft
      Caption = 'Panel3'
      ClientHeight = 223
      ClientWidth = 156
      TabOrder = 0
      object Panel4: TPanel
        Left = 1
        Height = 31
        Top = 1
        Width = 154
        Align = alTop
        Caption = 'Огород'
        TabOrder = 0
      end
      object DBGrid1: TDBGrid
        Left = 1
        Height = 190
        Top = 32
        Width = 154
        Align = alClient
        Color = clWindow
        Columns = <        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Температура'
            Width = 40
            FieldName = 'T_Ulica'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Влажность'
            Width = 40
            FieldName = 'H_Ulica'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Давление'
            Width = 40
            FieldName = 'P_Ulica'
          end>
        DataSource = DataSource1
        DefaultRowHeight = 80
        ReadOnly = True
        TabOrder = 1
      end
    end
    object Panel5: TPanel
      Left = 157
      Height = 223
      Top = 1
      Width = 196
      Align = alLeft
      Caption = 'Panel5'
      ClientHeight = 223
      ClientWidth = 196
      TabOrder = 1
      object Panel6: TPanel
        Left = 1
        Height = 31
        Top = 1
        Width = 194
        Align = alTop
        Caption = '2 этаж'
        TabOrder = 0
      end
      object DBGrid2: TDBGrid
        Left = 1
        Height = 190
        Top = 32
        Width = 194
        Align = alClient
        Color = clWindow
        Columns = <        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Температура'
            Width = 40
            FieldName = 'S_Floor_T'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Влажность'
            Width = 40
            FieldName = 'S_Floor_H'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Давление'
            Width = 40
            FieldName = 'S_Floor_P'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Т. батареи'
            Width = 40
            FieldName = 'S_Floor_T_Bat'
          end>
        DataSource = DataSource1
        DefaultRowHeight = 80
        ReadOnly = True
        TabOrder = 1
      end
    end
    object Panel7: TPanel
      Left = 353
      Height = 223
      Top = 1
      Width = 196
      Align = alLeft
      Caption = 'Panel7'
      ClientHeight = 223
      ClientWidth = 196
      TabOrder = 2
      object Panel8: TPanel
        Left = 1
        Height = 31
        Top = 1
        Width = 194
        Align = alTop
        Caption = 'Сауна'
        TabOrder = 0
      end
      object DBGrid3: TDBGrid
        Left = 1
        Height = 190
        Top = 32
        Width = 194
        Align = alClient
        Color = clWindow
        Columns = <        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Т. целевая'
            Width = 40
            FieldName = 'T_Sauna_Cel'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Температура'
            Width = 40
            FieldName = 'T_Sauna'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Нагрев воды'
            Width = 40
            FieldName = 'PowerWater'
          end        
          item
            Title.Alignment = taCenter
            Title.Font.Orientation = 900
            Title.Caption = 'Нагрев бани'
            Width = 40
            FieldName = 'PowerHeater'
          end>
        DataSource = DataSource1
        DefaultRowHeight = 80
        TabOrder = 1
      end
    end
  end
  object Label1: TLabel
    Left = 14
    Height = 28
    Top = 288
    Width = 229
    Caption = 'Минимальная Т батареи:'
    Font.Height = -20
    ParentFont = False
  end
  object Label2: TLabel
    Left = 14
    Height = 28
    Top = 312
    Width = 234
    Caption = 'Максимальная Т батареи:'
    Font.Height = -20
    ParentFont = False
  end
  object ButtonPanel1: TButtonPanel
    Left = 6
    Height = 34
    Top = 459
    Width = 538
    OKButton.Name = 'OKButton'
    OKButton.Caption = '&ЖМУ!!!'
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 2
  end
  object Label3: TLabel
    Left = 14
    Height = 28
    Top = 336
    Width = 82
    Caption = 'Дельта Т:'
    Font.Color = clBlack
    Font.Height = -20
    ParentFont = False
  end
  object Label4: TLabel
    Left = 14
    Height = 28
    Top = 360
    Width = 170
    Caption = 'Текущая Т батареи'
    Font.Color = clBlack
    Font.Height = -20
    ParentFont = False
  end
  object SQLTransaction1: TSQLTransaction
    Active = False
    Database = MySQL55Connection1
    Left = 408
    Top = 336
  end
  object SQLQuery1: TSQLQuery
    IndexName = 'DEFAULT_ORDER'
    MaxIndexesCount = 4
    FieldDefs = <    
      item
        Name = 'PR_KEY'
        DataType = ftLargeint
        Precision = -1
      end    
      item
        Name = 'Vremya'
        DataType = ftDateTime
        Precision = -1
      end    
      item
        Name = 'T_Ulica'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'P_Ulica'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'H_Ulica'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'T_Sauna_Cel'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'T_Sauna'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'PowerWater'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'PowerHeater'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'S_Floor_T'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'S_Floor_P'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'S_Floor_H'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'S_Floor_T_Bat'
        DataType = ftFloat
        Precision = -1
      end>
    Database = MySQL55Connection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'select * from `zamery`'
    )
    Options = [sqoCancelUpdatesOnRefresh]
    Params = <>
    Macros = <>
    Left = 496
    Top = 288
    object SQLQuery1PR_KEY: TLargeintField
      FieldKind = fkData
      FieldName = 'PR_KEY'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object SQLQuery1Vremya: TDateTimeField
      FieldKind = fkData
      FieldName = 'Vremya'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object SQLQuery1T_Ulica: TFloatField
      FieldKind = fkData
      FieldName = 'T_Ulica'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1P_Ulica: TFloatField
      FieldKind = fkData
      FieldName = 'P_Ulica'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1H_Ulica: TFloatField
      FieldKind = fkData
      FieldName = 'H_Ulica'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1T_Sauna_Cel: TLongintField
      FieldKind = fkData
      FieldName = 'T_Sauna_Cel'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object SQLQuery1T_Sauna: TFloatField
      FieldKind = fkData
      FieldName = 'T_Sauna'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1PowerWater: TLongintField
      FieldKind = fkData
      FieldName = 'PowerWater'
      Index = 7
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object SQLQuery1PowerHeater: TLongintField
      FieldKind = fkData
      FieldName = 'PowerHeater'
      Index = 8
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object SQLQuery1S_Floor_T: TFloatField
      FieldKind = fkData
      FieldName = 'S_Floor_T'
      Index = 9
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1S_Floor_P: TFloatField
      FieldKind = fkData
      FieldName = 'S_Floor_P'
      Index = 10
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1S_Floor_H: TFloatField
      FieldKind = fkData
      FieldName = 'S_Floor_H'
      Index = 11
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1S_Floor_T_Bat: TFloatField
      FieldKind = fkData
      FieldName = 'S_Floor_T_Bat'
      Index = 12
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
  end
  object DataSource1: TDataSource
    DataSet = SQLQuery1
    Left = 496
    Top = 336
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 408
    Top = 392
  end
  object MySQL55Connection1: TMySQL55Connection
    Connected = False
    LoginPrompt = False
    DatabaseName = 'dacha'
    KeepConnection = True
    Params.Strings = (
      'Port=3306'
    )
    Password = '4425279'
    Transaction = SQLTransaction1
    UserName = 'mysqluser'
    CharSet = 'UTF8'
    HostName = '192.168.1.30'
    SkipLibraryVersionCheck = False
    Left = 408
    Top = 288
  end
end
